﻿Public Class ClassFragment
    Public Titre As String
    Public Contenu As String

    Public Sub New()
        Me.Titre = ""
        Me.Contenu = ""
    End Sub

    Public Sub Inserer()
        Form1.RichTextBox1.SelectedText = Me.Contenu
    End Sub
End Class
